home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / tool / fmlbp / atenafm.awk < prev    next >
Text File  |  1994-12-26  |  1KB  |  87 lines
  1. BEGIN {
  2.     if(ARGC!=2) {
  3.         print"使い方：jgawk -f atenafm.awk PrintFilename\a"
  4.         err=1
  5.         exit
  6.     }
  7.     dj="\x1c&!$`!$p\x1c$(r"        #郵便番号、宛名住所：文字サイズ14.0、ピッチ82
  8.     dn="\x1c&!&`!&p\x1c$!$p"    #宛名氏名：文字サイズ16.0、ピッチ140
  9.     ss="\x1c&! e! u\x1c$&q"        #差出人住所氏名：文字サイズ10.5、ピッチ61
  10.     numx=160
  11.     numy[1]=660
  12.     numy[2]=510
  13.     numy[3]=360
  14.     numy[4]=200
  15.     numy[5]=50
  16.     dx=300
  17.     dy[1]=80
  18.     dy[2]=240
  19.     dy[3]=400
  20.     dy[4]=560
  21.     dy[5]=720
  22.     sx=820
  23.     sy[1]=1060
  24.     sy[2]=1130
  25.     sy[3]=1200
  26.     sy[5]=1270
  27.     sy[6]=1340
  28.     for(i=1;i<7;i++) {
  29.         getline
  30.         if(i<4) kansu()
  31.         s[i]=jsubstr($0,1,20)
  32.     }
  33.     print "\x03 FMLBP用 宛名 Print File"
  34.     print "\x1b$B\x1c(ap\x1c'! `! p\x1cJ\x1bQ1 q"
  35. }
  36.  
  37. /^XX/ {
  38.     for(i=1;i<6;i++) getline
  39.     next
  40. }
  41.  
  42. {
  43.     print dj
  44.     gsub(/[^０-９]/,"")
  45.     for(i=1;i<6;i++) {
  46.         num=jsubstr($0,i,1)
  47.         printf("\x1b[%dd\x1b[%d`\n%s\n",numy[i],numx,num)
  48.     }
  49.     for(i=1;i<4;i++) {
  50.         getline
  51.         kansu()
  52.         printf("\x1b[%dd\x1b[%d`\n",dy[i],dx)
  53.         print jsubstr($0,1,20)
  54.     }
  55.     print dn
  56.     for(i=4;i<6;i++) {
  57.         getline
  58.         printf("\x1b[%dd\x1b[%d`\n",dy[i],dx)
  59.         print jsubstr($0,1,20)
  60.     }
  61.     print ss
  62.     for(i=1;i<7;i++) {
  63.         if(i==4) continue
  64.         printf("\x1b[%dd\x1b[%d`\n",sy[i],sx)
  65.         print s[i]
  66.     }
  67.     print "\x0c"
  68. }
  69.  
  70. END {
  71.     if(err) exit
  72.     print "\x1cK"
  73. }
  74.  
  75. function kansu() {
  76.     gsub(/０/,"〇")
  77.     gsub(/１/,"一")
  78.     gsub(/２/,"二")
  79.     gsub(/３/,"三")
  80.     gsub(/４/,"四")
  81.     gsub(/５/,"五")
  82.     gsub(/６/,"六")
  83.     gsub(/７/,"七")
  84.     gsub(/８/,"八")
  85.     gsub(/９/,"九")
  86. }
  87.